home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / U-User Group / (k)ua.d64 / dsp.hobie2 < prev    next >
Text File  |  2007-02-28  |  1KB  |  88 lines
  1. // DELETE "EXT.HOBIE2"
  2. // SAVE   "EXT.HOBIE2"
  3. //  BY ─AVID ╘URNER - 5/11/85
  4. //
  5. //DRAWS HOBIE'S TRADEMARK INSIGNIA
  6. //
  7. ╨╥╧├ HOBIE ├╠╧╙┼─
  8.   ╒╙┼ GRAPHICS
  9.   BORDER(2)
  10.   BACKGROUND(8)
  11.   GRAPHICSCREEN(0)
  12.   PENCOLOR(7)
  13.   TEXTSTYLE(1,2,0,1)
  14.   PLOTTEXT(110,174,"╚AVE A")
  15.   TEXTSTYLE(3,3,0,1)
  16.   PENCOLOR(2)
  17.   PLOTTEXT(90,145,"╚╧┬╔┼")
  18.   PENCOLOR(7)
  19.   TEXTSTYLE(1,2,0,1)
  20.   PLOTTEXT(220,146,"─AY")
  21.   HIDETURTLE
  22.   HOME
  23.   MOVETO(20,179)
  24.   SETHEADING(75)
  25.   FORWARD(21)
  26.   SETHEADING(130)
  27.   ARCL(30,45)
  28.   SETHEADING(210)
  29.   FORWARD(40)
  30.   SETHEADING(220)
  31.   ARCR(30,60)
  32.   LEFT(15)
  33.   SETHEADING(380)
  34.   FORWARD(10)
  35.   SETHEADING(95)
  36.   ARCL(25,47)
  37.   SETHEADING(39)
  38.   FORWARD(37)
  39.   SETHEADING(260)
  40.   FORWARD(10)
  41.   SETHEADING(250)
  42.   ARCR(37,42)
  43.   FORWARD(5)
  44.   FILL(23,138)
  45.   FILL(36,178)
  46.   MOVETO(95,190)
  47.   SETHEADING(245)
  48.   ARCL(75,20)
  49.   ARCL(30,84)
  50.   SETHEADING(110)
  51.   ARCL(40,15)
  52.   FORWARD(10)
  53.   SETHEADING(90)
  54.   FORWARD(135)
  55.   SETHEADING(0)
  56.   FORWARD(3)
  57.   SETHEADING(270)
  58.   FORWARD(125)
  59.   SETHEADING(280)
  60.   FORWARD(5)
  61.   SETHEADING(285)
  62.   FORWARD(5)
  63.   SETHEADING(290)
  64.   FORWARD(5)
  65.   SETHEADING(300)
  66.   ARCR(21,44)
  67.   FORWARD(5)
  68.   ARCR(15,50)
  69.   SETHEADING(31)
  70.   ARCR(40,14)
  71.   SETHEADING(34)
  72.   FORWARD(16)
  73.   FILL(84,181)
  74.   MOVETO(65,145)
  75.   SETHEADING(300)
  76.   FORWARD(25)
  77.   ARCL(40,30)
  78.   SETHEADING(80)
  79.   FORWARD(10)
  80.   ARCR(40,45)
  81.   FORWARD(8)
  82.   FILL(60,157)
  83.   FILL(40,162)
  84. ┼╬─╨╥╧├ HOBIE
  85. //
  86. HOBIE
  87. ┼╬─ "╨RESS ╞5 TO SEE ╚OBIE"
  88.